@val @negate @#1tempc#1#2tempa#2tempbtempctempatempb @@#1gobble @@#1tempc #2@tempc@tempc@or tempc#1 - #2tempa#2tempbtempctempatempb @@#1gobble @@#1tempc #2@tempc@ - tempc@and tempc#1#2tempa#2tempbtempctempatempb @@#1gobble @@#1tempc #2@tempc@tempc@neg unexpandable@protect setref#1##2##3#1@##2#10#1c@#1ne=ne tempatempb#97#>tempatempb(ne=ne@negatefalse @negate@valfalse@valtrue @val@negate @negatefalse @valne=ne@@oddnil@ne=ne gtempa@negatefalse@ @negate@valfalse@valtrue @val@negate @negatefalse gtempa @val firstoftwo secondoftwo whiledotrue whilesw@whiledo #2@#1tempc#1#2tempa#2tempbtempctempatempb @@#1gobble @@#1tempc #2@tempc@tempc@or tempc#1 - #2tempa#2tempbtempctempatempb @@#1gobble @@#1tempc #2@tempc@ - tempc@and tempc#1#2tempa#2tempbtempctempatempb @@#1gobble @@#1tempc #2@tempc@tempc@neg unexpandable@protect setref#1##2##3#1@##2#10#1c@#1ne=ne tempatempb#127#>tempatempb(ne=ne@negatefalse @negate@valfalse@valtrue @val@negate @negatefalse @valne=ne@@oddnil@ne=ne gtempa@negatefalse@ @negate@valfalse@valtrue @val@negate @negatefalse gtempa @val firstoftwo secondoftwo whiledotruewhiledofalse@whiledo